home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / cfuncproto.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  900 b   |  44 lines
  1. if (!defined &_CFUNCPROTO) {
  2.     eval 'sub _CFUNCPROTO {1;}';
  3.     if (!defined &_ASM) {
  4.     if (defined( &KERNEL) && defined( &__STDC__)) {
  5.         eval 'sub _HAS_PROTOTYPES {1;}';
  6.         eval 'sub _HAS_VOIDPTR {1;}';
  7.     }
  8.     if (defined( &__cplusplus)) {
  9.         eval 'sub _EXTERN { &extern "C";}';
  10.         eval 'sub _NULLARGS {( &void);}';
  11.         eval 'sub _HAS_PROTOTYPES {1;}';
  12.         eval 'sub _HAS_VOIDPTR {1;}';
  13.         eval 'sub _HAS_CONST {1;}';
  14.     }
  15.     else {
  16.         eval 'sub _EXTERN { &extern;}';
  17.         eval 'sub _NULLARGS {();}';
  18.     }
  19.     if (defined( &_HAS_PROTOTYPES) && !defined( &lint)) {
  20.         eval 'sub _ARGS_ {
  21.             local($x) = @_;
  22.             eval "$x";
  23.         }';
  24.     }
  25.     else {
  26.         eval 'sub _ARGS_ {
  27.             local($x) = @_;
  28.             eval "()";
  29.         }';
  30.     }
  31.     if (defined &_HAS_CONST) {
  32.         eval 'sub _CONST { &const;}';
  33.     }
  34.     else {
  35.         eval 'sub _CONST {1;}';
  36.     }
  37.     if (defined &_HAS_VOIDPTR) {
  38.     }
  39.     else {
  40.     }
  41.     }
  42. }
  43. 1;
  44.